0 DV=PEEK(186):IFLF>0THEN50008
1 IFX=0THENX=1:PRINT"[147]":LOAD"UNPACKER",DV,1
2 POKE56,120 :CLR
9 REM * * * SEARCH/HOLMES V1.2 * * *
10 PRINTCHR$(14);:POKE53280,14:POKE53281,14:MU=-1
11 MO=PEEK(215):IFMO=128 THEN PRINT"[147][211]WITCH TO 40 COLUMN DISPLAY":GOTO60000
12 IFMO=0 THEN (null)5,2:GOTO15
13 POKE646,1
15 DIMA$(20),B$(50),TYPE(50)
19 REM TITLE PAGE
20 PRINT"[147]"
30 PRINT"[147]":W=1114:X=1133:Y=1893:Z=1874
40 FOR I=0 TO18:POKEW+I,63:POKEX+40*I,63:POKEY-I,63:POKEZ-40*I,63  :NEXTI
80 FORWA=1 TO200:NEXTWA
90 PRINT"[212][200][197][160][211][197][193][210][195][200][160][198][207][210]"
100 NV=NV+1:READA$(NV):IFA$(NV)="EV"THENNV=NV-1:GOTO115
110 GOTO100
115 FOR WA=1 TO 400:NEXTWA
117 PRINT"[211][200][197][210][204][207][195][203][160] [200][207][204][205][197][211]"
120 NM=NM+1:READB$(NM)
121 IFB$(NM)="PIPE"THEN H(1)=NM
122 IFB$(NM)="TOBACCO" THEN H(2)=NM
123 IFB$(NM)="MATCHES"THENH(3)=NM
125 IFB$(NM)="EM"THENNM=NM-1:GOTO140
130 GOTO120
140 FORWA=1 TO 800:NEXTWA:
200 PRINT"[147][212][200][197][160][211][197][193][210][195][200][160][198][207][210][160][211][200][197][210][204][207][195][203][160][200][207][204][205][197][211] IS A
205 [153]"TEXT ADVENTURE. (null)OU WILL BE GIVING
210 PRINT"COMMANDS TO THE COMPUTER VIA YOUR
215 [153]"KEYBOARD. (null)F COURSE, NOT ALL COM-
220 PRINT"MANDS WILL BE UNDERSTOOD BY THE
225 [153]"PROGRAM: YOU MUST FOLLOW THE RULES
230 PRINT"YOU WILL SEE ON THE NEXT PAGE."
260 PRINT"[208]RESS 'N' FOR NEXT PAGE"
265 GETA$:IFA$<>"N"THEN265
300 PRINT"[147][199]AME [210]ULES[146]"
310 PRINT"[193]LL COMMANDS MUST BE TWO WORDS, TYPED
320 [153]"IN LOWER CASE.
330 PRINT"[198]IRST WORD MUST BE FROM 'VERBS' LIST.
340 [153]"(null)ECOND MUST BE FROM 'MODIFIERS' LIST.
350 PRINT"[215]ORDS SEPARATED BY A SINGLE SPACE.
360 [153]"(null)ORD LIST MAY BE VIEWED BY TYPING
370 PRINT"'GO LIST' AT INPUT PROMPT.
380 [153]"(null)O REVIEW RULES, TYPE 'GO RULES'."
385 [153]"STR$URING PLAY, YOU MAY CARRY AT MOST
386 PRINT"FOUR ITEMS AT ONE TIME."
390 PRINT"[208]RESS A KEY TO CONTINUE"
395 GETA$:IFA$=""THEN395
396 IFGAME>0 THEN 20000
400 PRINT"[147][214]ERBS[146]"
410 K=0:FOR I=1 TO NV:K=K+1:PRINTA$(I)TAB(10*K);:IFK=4THENK=0:
420 NEXTI
430 PRINT: PRINT"[205]ODIFIERS[146]
440 K[178]0:[129] I[178]1 [164] NM:K[178]K[170]1:[153]B$(I)[163]10[172]K);:[139]K[178]4[167]K[178]0:
450 [130]I
452 [153]
455 [139]GAME[178]0[167]500
460 [153]:  [153]"(null)RESS A KEY TO CONTINUE"
470 [161]A$:[139]A$[178]""[167]470
480 [137] 20000
500 [153]"(null)RESS 'P' TO PRINT A COPY OF THIS
505 PRINT"   LIST OR 'B' TO BEGIN SEARCH"
510 GETA$:IFA$=""THEN510
520 IFA$="P" THEN GOSUB 35000:GOTO990
530 IFA$="B" THEN 990
540 GOTO 510
990 GAME =1: PRINT"[147][212][200][197][160][211][197][193][210][195][200][160][198][207][210][160][211][200][197][210][204][207][195][203][160][200][207][204][205][197][211]
1000 [153]"(null)OUR NAME IS (null)OBY (null)TUBBINS. RIGHT$T'S THE
1010 PRINT"YEAR 1893 AND YOU LIVE IN THE BACK
1020 [153]"ALLEYS OF THE TEEMING METROPOLIS THAT
1030 PRINT"IS [204]ONDON, [197]NGLAND. [217]OU'VE BEEN HOME-
1040 [153]"LESS FOR ALL OF YOUR FIFTEEN YEARS,
1050 PRINT"BUT YOUR LIFE IS NOT AS HOPELESS AS
1060 [153]"THOSE AROUND YOU, FOR YOU ARE A PEEKAKER
1070 PRINT"[211]TREET [201]RREGULAR. [217]OU ARE THE WILY
1080 [153]"EYES AND EARS OF THE GREATEST DETECTIVE"
1090 [153]"WHO EVER LIVED - (null)HERLOCK LEFT$OLMES. ATNS A
1100 PRINT"LIFELONG INHABITANT OF THE BLEAK SIDE
1110 [153]"OF (null)ONDON, YOU CAN ACCOMPLISH THINGS
1120 PRINT"THAT NO ORDINARY [204]ONDONER CAN. [217]OU ARE
1130 [153]"THE CRUCIAL LINK BETWEEN THE DARK
1140 PRINT"UNDERWORLD AND THE MAN WHO HAS SOLVED
1150 [153]"MORE 'UNSOLVABLE' CRIMES THAN ANY OTHER"
1160 [153]"PERSON IN HISTORY.
1170 PRINT"[208]RESS A KEY TO CONTINUE"
1180 GETA$:IFA$=""THEN1180
1200 PRINT"[147][194]UT THIS MORNING, TRAGEDY STRUCK IN THE"
1210 PRINT"MOST UNLIKELY MANNER. [193]S YOU APPROACHED"
1220 PRINT"[206]UMBER 221B [194]AKER [211]TREET, YOU WERE
1230 [153]"STUNNED BY A COMMOTION WHOSE LIKES YOU
1240 PRINT"HAD NEVER SEEN THERE. [208]EOPLE, HORSES,
1250 [153]"CARRIAGES, AND POLICE WERE ALL":[153]"SCURRYING FRIGHTFULLY ABOUT."
1260 [153]"  (null)OU FOUGHT YOUR WAY THROUGH THE"
1270 [153]"THRONG AND AT LAST SPOTTED STR$R. (null)ATSON,"
1280 [153]"WHO WAS SPEAKING HEATEDLY WITH A YOUNG"
1290 [153]"(null)IEUTENANT FROM THE (null)COTLAND (null)ARD."
1300 [153]"(null)HEN THE STR$OCTOR SAW YOU, HE WAVED A"
1310 [153]"DISGUSTED HAND AT THE CONFUSED OFFICER"
1320 [153]"(FROM WHOM HE WASCLOSEGETTING LITTLE"
1330 [153]"SATISFACTION) AND RAN TO YOU."
1340 :
1350 [153]
1360 [153]"'(null)HANK HEAVENS IT'S YOU, (null)OBY. (null)HE MOST"
1370 [153]"AWFUL THING HAS HAPPENED. RIGHT$T'S LEFT$OLMES -"
1380 [153]"HE'S BEEN STOLEN, ER, AH, KIDNAPPED.
1390 PRINT"[217]ES, THAT'S IT - KIDNAPPED!'
1400 [153]"(null)RESS A KEY TO CONTINUE"
1410 [161]A$:[139]A$[178]""[167]1410
1420 [153]"LOAD'(null)OBY, YOU MUST FIND HIM. (null)HE ONLY
1430 PRINT"CLUE WE HAVE IS THIS SHOE. [201]'M SURE
1440 [153]"LEFT$OLMES COULD MAKE A LOT MORE OF IT THAN"
1450 [153]"RIGHT$ HAVE. (null)OU SEE, IT HAS A PECULIAR TYPE"
1460 [153]"OF MUD CAKED AROUND THE SOLE. RIGHT$'M SURE"
1470 [153]"ITS OWNER HAS SPENT CONSIDERABLE TIME"
1480 [153]"IN THE SEWERS RECENTLY. RIGHT$'M AFRAID"
1490 [153]"THAT'S ALL RIGHT$ CAN MAKE OUT IN MY PRESENT"
1500 [153]"STATE OF MIND. (null)OBY, WE MUST FIND HIM -"
1510 [153]"AND QUICKLY. RIGHT$ HAVE REASON TO BELIEVE"
1520 [153]"HE MAY HAVE BEEN DRUGGED. (null)HE POLICE"
1525 [153]"WILL BE OF NO HELP - RIGHT$'M AFRAID YOU'RE"
1530 [153]"ON YOUR OWN. (null)LEASE, (null)OBY - FIND":[153]"LEFT$OLMES!'"
1550 [153]"(null)RESS A KEY TO CONTINUE"
1560 [161]A$:[139]A$[178]""[167]1560
1570 [153]"LOADATNS YOU LOOK AROUND, YOU SEE:
1580 PRINT"[193] PERPLEXED [215]ATSON, HOLDING A SHOE;"
1590 PRINT"[193] HANSOM CAB WAITING PATIENTLY;
1610 [153]"ATN CLOCK SHOWING THE TIME AS 10 ATN(null);
1620 PRINT"[193] POUND NOTE IN [215]ATSON'S POCKET;
1630 [153]"(null)HE LANDLADY HOLDING LEFT$OLMES' PIPE;
1640 PRINT"[193] POLICEMAN SCRATCHING HIS HEAD.
1650 [153]"(null)HAT WILL YOU DO, (null)OBY? (null)OUR POCKETS
1660 PRINT"ARE EMPTY AND TIME IS RUNNING OUT.":GOTO20000
3000 ONFWGOTO6900,3000,3100,6900,3200,3250,6900,3350,6900,3450
3010 ONFW-10 GOTO6900,6900,6900,6900,6900,6900,3800
3100 IFB$="BUTCHER" THEN 4360
3105 IFB$="DRYGOODS" THEN 4370
3110 IF B$="SMOKESHOP" THEN 4375
3115 IF B$="SEWER" THEN 4350
3148 GOTO 6927
3200 IFB$="BUTCHER"THEN4200
3205 IFB$="SMOKESHOP"THEN4200
3210 IFB$="DRYGOODS"THEN4200
3248 GOTO6900
3250 IFB$="HAMMER"THENIT=3:GOTO4250
3255 IFB$="KNIFE"THENIT=3:GOTO4250
3260 IFB$="MATCHES"THENIT=2:GOTO4250
3265 IFB$="MEAT"THENIT=1:GOTO4250
3270 IFB$="PIPE"THENIT=2:GOTO4250
3275 IFB$="ROPE"THENIT=3:GOTO 4250
3280 IFB$="TOBACCO"THENIT=2:GOTO 4250
3298 GOTO 6900
3350 IFB$="SEWER"THEN4350
3355 IFB$="221B"THEN4355
3360 IFB$="BUTCHER"THEN4360
3365 IFB$="HANSOM"THEN4365
3370 IFB$="DRYGOODS"THEN4370
3375 IFB$="SMOKESHOP"THEN4375
3380 IFB$="DUNGEON"THEN4380
3398 GOTO 6900
3450 IFB$="AROUND"THEN4450
3498 GOTO 6900
3800 IFB$="221B"THEN 4800
3810 IFB$="SEWER"THEN 4350
3848 GOTO 6900
4200 IFSH=0THEN6900
4201 SH=0:PRINT"[145][207][203], YOU'RE BACK IN THE STREET.":GOTO4901
4250 IFSH<>ITTHEN6955
4251 IFTY(SW)=3 THEN6925
4252 IFNI=4 ANDMY=5  THEN NI=3:GOTO 4255
4253 IFNI>3 THEN 6910:REM NI= # OF ITEMSCARRIED
4254 IFMY<5 THEN 6915
4255 PRINT"[145][217]OU NOW HAVE ";B$;".":GOTO6940
4350 GAME=3:GOSUB62000:PRINT"[217]OU'RE AT THE ENTRANCE TO THE SEWER.
4351 [153]"ATN TUNNEL LIES DIRECTLY AHEAD.":[137]4910
4355 [153]"ON(null)OU CAN EITHER WALK (SLOW) OR TAKE A
4356 PRINT"HANSOM CAB (10 SHILLINGS)":GOTO4900
4360 PRINT"[145][217]OU'RE IN THE BUTCHER SHOP.":SH=1:GOTO 4902
4365 IFMY<10 THEN6915
4366 GAME=1:PL=0:GOSUB62000:PRINT"[217]OU'RE IN [200]OLMES' FLAT. [215]ATSON IS
4367 [153]"STILL THERE.":RM[178]1: MY[178]MY[171]10:BO[178]0:   [137] 4905
4370 [153]"ON(null)OU'RE IN THE DRYGOODS SHOP.":SH[178]3:[137] 4902
4375 [153]"ON(null)OU'RE IN THE SMOKESHOP.     ":SH[178]2:[137] 4902
4380 [153]"ON(null)OU CAN'T GO DIRECTLY THERE. (null)OU MUST
4381 PRINT"GO BY WAY OF THE SEWER.":GOTO4900
4450 IFSH>0 THEN4460
4451 PRINT"[145][217]OU SEE SEVERAL SHOPS WHICH MAY PROVE
4452 [153]"USEFUL: A DRYGOODS, A BUTCHER AND A
4453 PRINT"SMOKESHOP.":GOTO4901
4460 IFSH>1 THEN 4470
4461 PRINT"[145][217]OU SEE LOTS OF MEAT! 5 SHILLINGS
4462 [153]"PER PIECE.":[137] 4901
4470 [139]SH[177]2[167]4480
4471 [153]"ON(null)OU SEE PIPES, TOBACCO AND MATCHES.
4472 PRINT"5 SHILLINGS PER ITEM.":GOTO 4901
4480 PRINT"[145][212]HE FOLLOWING ITEMS CATCH YOUR EYE:
4481 [153]"A HAMMER, A KNIFE, AND A ROPE."
4482 [153]"(null)HEY COST 5 SHILLINGS EACH.":[137]4901
4800 GAME[178]1:[141]62000:[153]"(null)OU ARE NOW IN LEFT$OLMES' FLAT. (null)ATSON
4801 PRINT"IS LYING ON THE DIVAN.":RM=1: PL=0:BO=0:  GOTO 4920
4900 GOTO 20000
4901 TM=TM+1:GOTO20000
4902 TM=TM+2:GOTO20000
4903 TM=TM+3:GOTO20000
4904 TM=TM+4:GOTO20000
4905 IF MY=0 THEN NI=NI-1
4906 TM=TM+5:GOTO20000
4910 TM=TM+10:GOTO20000
4920 TM=TM+20:GOTO20000
5000 ONFWGOTO5050,5000,5100,5150,5200,5250,6900,5350,6900,5450
5010 ONFW-10 GOTO5550,6900,6900,6900,6900,5750,5800
5050 IFB$= "POLICE" THEN 6050
5055 IFB$= "WATSON" THEN 6055
5098 GOTO 6900
5100 IFB$="ROOM" THEN6100
5105 IFB$="221B" THEN 6375
5110 IFB$="DUNGEON" THEN 6360
5115 IFB$="SEWER" THEN 6350
5148 GOTO 6900
5150 IFB$="BOOKCASE" THEN6150
5160 IFB$="CHEST" THEN6160
5170 IFB$="SHOE" THEN 6170
5180 IFB$="221B" THEN 6375
5198 GOTO6900
5200 IFB$="ROOM" THEN6200
5248 GOTO 6900
5250 IFB$="MONEY"THEN6250
5255 IFB$="PIPE"THEN6255
5260 IFB$="SHOE"THEN6260
5265 IFB$="TOBACCO"THEN6265
5270 IFB$="LOCKET"THEN6270
5275 IFB$="MATCHES" THEN 6275
5298 GOTO 6900
5350 IFB$="SEWER"THEN6350
5355 IFB$="CHEAPSIDE"THEN6355
5360 IFB$="DUNGEON"THEN6360
5361 IF B$="STAIRS" THEN 6360
5365 IFB$="HANSOM"THEN6365
5370 IFB$="ROOM"THEN 6370
5375 IFB$="221B"THEN6375
5385 IFB$="CHEST"THEN6385
5390 IFB$="BOOKCASE"THEN6390
5395 IFB$="POLICE"THEN 6050
5396 IF B$="WATSON" THEN 6396
5398 GOTO 6900
5450 IFB$="AROUND"THEN6450
5498 GOTO 6900
5550 IFB$="DOOR"THENGOTO6550
5555 IFB$="CHEST"THENGOTO6555
5598 GOTO 6900
5750 IFB$="MATCHES"THEN6750
5755 IFB$="HANSOM"THEN6365
5798 GOTO 6900
5800 IFB$="CHEAPSIDE"THEN6800
5805 IFB$="SEWER"THEN 6350
5810 IF B$="221B"THEN 6375
5848 GOTO 6900
6050 PRINT"[145][212]HE POLICE ARE TOTALLY CONFUSED!":GOTO4901
6055 IFRM<>1 THEN PRINT"[145][215]ATSON ISN'T MAKING MUCH SENSE.      ":GOTO4901
6056 PRINT"[145][215]ATSON SUGGESTS THE SIDE ROOM.":GOTO4901
6100 IFPL<>2 THEN6370
6101 PRINT"[145][201]T'S DARK IN HERE.        ":GOTO4900
6150 IFTY(H(1))>2 THEN6153
6151 PRINT"[145][204]OTS OF BOOKS, SHEETS OF MUSIC, SOME
6152 [153]"MATCHES, A PIPE AND SOME TOBACCO.":[137]4901
6153 [153]"ON(null)OTS OF BOOKS, SHEETS OF MUSIC, SOME
6154 PRINT"MATCHES AND SOME TOBACCO.":GOTO4901
6160 IFPL<4 THEN6955
6161 IF PL=6THENPRINT"[145][206]OTHING MORE OF VALUE HERE.":GOTO4901
6162 PRINT"[145][201]T DOES NOT APPEAR TO BE LOCKED.":GOTO4910
6170 PRINT"[145][217]EP, IT SMELLS LIKE THE SEWER.":GOTO 4901
6200 PRINT"[145][207][203], YOU'RE OUT.           ":PL=2:  GOTO4901
6250 IFTY(SW)>2 THEN6920
6251 IFNI>3 THEN 6910
6252 PRINT"[145][217]OU NOW HAVE 1 POUND (20 SHILLINGS).":MY=20:GOTO6950
6255 IFRM<>1 THEN 6257
6256 IFBO<>1 THEN 6955
6257 IFTY(SW)>2 THEN6920
6258 IFNI>3 THEN 6910
6259 PRINT"[145][217]OU HAVE [200]OLMES' PIPE.  ":GOTO6950
6260 IFTY(SW)>2 THEN6920
6261 IFNI>3 THEN 6910
6262 PRINT"[145][217]OU NOW HAVE A SMELLY SHOE.":GOTO6950
6265 IFRM<>1 THEN 6900
6266 IFBO<>1 THEN 6955
6267 IFNI>3 THEN 6910
6269 PRINT"[145][217]OU NOW HAVE A SLIPPER OF TOBACCO.":GOTO6950
6270 IF PL<>5 THEN6955
6271 IFNI>3 THEN 6910
6272 IFTY(SW)=3 ORTY(SW)=4 THEN6920
6273 PRINT"[145][217]OU NOW HAVE THE [193]DLER LOCKET.":PL=6:GOTO6950
6275 IFBO=0THEN6955
6276 IFNI>3 THEN 6910
6277 IFTY(SW)=3  THEN PRINT"[145][217]OU ALREADY HAVE SOME.":GOTO 4900
6278 PRINT"[145][217]OU NOW HAVE [200]OLMES' MATCHES.":GOTO 6950
6350 PRINT"[145][217]OU CAN'T GO DIRECTLY THERE. [217]OU MUST
6351 [153]"GO BY WAY OF LENHEAPSIDE.":[137]4900
6355 [153]"ON(null)OU CAN EITHER WALK (SLOW) OR TAKE A
6356 PRINT"HANSOM CAB (10 SHILLINGS)":GOTO4900
6360 IFSP=0 THEN PRINT"[145][217]OU CAN'T GO DIRECTLY THERE.": GOTO4900
6361 RM=0:GAME=4:PL=0:BO=0:PRINT"[217]OU'RE BACK IN THE DUNGEON.":GOTO 4904
6365 IFMY<10 THEN 6915
6366 GAME=2:PL=0:RM=0:BO=0:GOSUB62000:PRINT"[217]OU'RE IN [195]HEAPSIDE, [204]ONDON'S
6367 [153]"SHOPPING DISTRICT.":MY[178]MY[171]10:  [137] 4905
6370 [139]RM[179][177]1 [167]6900
6371 [153]"ON(null)HE DOOR'S CLOSED.         ":PL[178]1:BO[178]0:  [137]4900
6375 [139]SP[178]0 [167]6379
6376 [153]"ON(null)OU ARE NOW IN LEFT$OLMES' FLAT. (null)ATSON
6377 PRINT"IS LYING ON THE DIVAN.":RM=1:PL=0:BO=0:GOTO 4902
6379 PRINT"[145][212]HE POLICE HAVE BARRED THE DOOR.": GOTO 4901
6385 IF PL<>3THEN 6900
6386 PRINT"[145][217]OU'RE STANDING IN FRONT OF THE CHEST.":PL=4:   GOTO 4902
6390 IFRM<>1 THEN6900
6391 IF PL>2THEN 6955
6392 PRINT"[145][217]OU'RE STANDING BEFORE THE BOOKCASE.":BO=1:  GOTO4901
6396 IF RM<>1 THEN 6900
6397 PRINT"[145][215]ATSON IS NAPPING FITFULLY.":GOTO 4901
6450 IFRM<>1 THEN 6900
6451 IFPL>2 THEN6461
6452 PRINT"[145][212]HE FOLLOWING THINGS CATCH YOUR EYE:
6453 [153]"(null)ATSON NAPPING ON THE COUCH, A BOOK-
6454 PRINT"CASE WITH MANY INTERSTING ITEMS AND
6455 [153]"THE DOOR TO A SIDE ROOM.":[137]4901
6461 [153]"ON(null)OTHING MUCH HERE BUT THE CHEST.":[137]4901
6550 [139] PL[179][177] 1 [167] 6900
6551 [153]"ONRIGHT$T'S DARK IN HERE.   ":PL[178]2:[137]4901
6555 [139]PL[179]4  [167] 6955
6556 [139]PL[177]4[167][153]"ON(null)OTHING MORE OF VALUE HERE.":[137]4901
6557 [153]"ONPEEKINGO! (null)NDER SOME PAPERS IS A LOCKET.":PL[178]5:     [137]4900
6750 [139]TY(SW)[179][177]3 [167] 6935
6755 [139]PL[179][177]2 [167] 6900
6756 [153]"ON(null)OU SEE A SMALL CHEST IN THE CORNER.":PL[178]3:[137]4901
6800 GAME[178]2:PL[178]0: [141]62000:[153]"(null)OU'RE IN LENHEAPSIDE, (null)ONDON'S
6801 PRINT"SHOPPING DISTRICT.":GOTO 4920
6900 PRINT"[145][212]RY ANOTHER COMMAND.       ":GOTO4900
6905 PRINT"[145][217]OU'VE GOT TO BE KIDDING.":GOTO4900
6910 PRINT"[145][217]OU HAVE TOO MANY ITEMS.":GOTO 4900
6915 PRINT"[145][217]OU HAVEN'T THE FUNDS FOR THAT.":GOTO4900
6920 PRINT"[145][212]HAT'S NO LONGER AVAILABLE.":GOTO 4900
6925 PRINT"[145][217]OU ALREADY HAVE THAT ITEM.":GOTO 4901
6927 PRINT"[145][208]LEASE BE MORE SPECIFIC.      ":GOTO 4900
6930 PRINT"[145][217]OU CAN'T SEE MUCH IN THE DARK.":GOTO4901
6935 PRINT"[145][217]OU DON'T HAVE ";B$;".          ":GOTO 4900
6940 MY=MY-5:IFMY=0 THEN NI=NI-1
6950 TYPE(SW)=3:NI=NI+1:TM=TM+1:GOTO20000
6955 PRINT"[145][217]OU CAN'T DO THAT . . . YET.":GOTO4900
7000 ONFWGOTO6900,7000,7100,7150,7200,6900,7300,7350,7400,7450
7010 ONFW-10 GOTO6900,7550,7650,7600,6900,7750,6900
7100 IFB$="TUNNEL" THEN8100
7105 IF B$="SEWER"THEN8100
7110 IFB$="DUNGEON" THEN8110
7148 GOTO 6900
7150 IFB$="WALL" THEN8150
7160 IFB$="TUNNEL" THEN8150
7198 GOTO6900
7200 IFB$="TUNNEL" THEN8200
7248 GOTO 6900
7300 IFB$="MEAT" THEN 8300
7348 GOTO 6900
7350 IFB$="DUNGEON"THEN8110
7355 IFB$="LEFT"THEN8355
7360 IFB$="RIGHT"THEN8360
7365 IFB$="STRAIGHT"THEN8365
7375 IFB$="CHEAPSIDE"THEN8375
7380 IFB$="BACK"THEN8200
7385 IFB$="TUNNEL"THEN8100
7390 IFB$="WALL"THEN8390
7398 GOTO 6900
7400 IFB$="DOG"THEN8400
7448 GOTO 6900
7450 IFB$="AROUND"THEN8450
7498 GOTO 6900
7550 IFB$="WALL"THEN8550
7555 IFB$="DOOR"THEN8550
7598 GOTO 6900
7600 IFB$="DOG"THEN8600
7648 GOTO 6900
7650 IFB$="MEAT"THEN8650
7655 IFB$="KNIFE"THEN8660
7660 IFB$="HAMMER"THEN8660
7698 GOTO 6905
7750 IFB$="HAMMER"THEN8750
7755 IFB$="MATCHES"THEN 8755
7760 IFB$="ROPE"THEN 8760
7765 IF B$="MEAT" THEN 8770
7798 GOTO 6905
8100 IFLI=1ANDJU=0THEN8366
8101 IFJU=0THENPRINT"[145][201]T'S TOO DARK TO SEE ANYTHING.":GOTO4902
8102 IFJU=1 THEN PRINT"[145][215]HICH ONE?              ":GOTO4900
8103 GOTO6900
8110 IFJU<>2 ORWL<>1 THEN 6900
8112 GAME=4:GOSUB62000:PRINT"[217]OU'VE ENTERED THE LONG-FORGOTTEN
8113 [153]"DUNGEON OF (null)ING LEFT$ENRY (null)RIGHT$RIGHT$RIGHT$.":[137]4901
8150 [139]JU[179]2 [167] 6900
8151 [139] JU[177]2[167] [153]"ONRIGHT$T'S SINGULARLY DULL.":[137]4901
8152 [139]DD[178]0 [167] [153]"ON(null)HAT DOG SURE LOOKS HUNGRY.":[137]4901
8153 [153]"ONATNHA! (null)HERE APPEARS TO BE A STONE
8154 PRINT"DOOR IN THE WALL. [215]ITH SOME EFFORT,
8155 [153]"YOU MAY BE ABLE TO GET THROUGH.":EW[178]1:[137]4901
8200 [139]JU[179]2[167] [153]"ON(null)OU'RE BACK AT THE SEWER ENTRANCE.":JU[178]0: [137]4905
8202 [139]JU[177]1 [167] [153]"ON(null)OU'RE BACK AT THE FORK.":JU[178]1:  [137]4903
8203 [137]6900
8300 [139]JU[179][177]2 [167] 6900
8301 [153]"ON(null)HE BEAST THANKS YOU, BUT HE'S STILL
8302 PRINT"BLOCKING THE WAY.":TY(SW)=4: GOTO4901
8355 IF JU<>1 THEN6900
8356 JU=2: PRINT"[145][217]OU'RE WALKING DOWNHILL. [193] TERRIBLE
8357 [153]"NOISE IS GETTING LOUDER BY THE MOMENT.
8358 PRINT"[201]T'S THE GROWLING OF A RAVENOUS DOG,
8359 [153]"WHO IS BLOCKING YOUR WAY." :[137]4902
8360 [139]JU[179][177]1 [167]6900
8361 JU[178]4:[153]"ON(null)OU WALK FOR TWO MINUTES ONLY TO
8362 PRINT"DISCOVER YOU'VE REACHED A DEAD END.":GOTO4902
8365 IFLI=0 THEN 6930
8366 IFJU=0THEN 8373
8367 IF JU>2 THEN6900
8368 IF DD=0 AND JU=2 THEN 8761
8369 IF DD=1 ANDJU=2THENPRINT"[145][212]HERE'S AN INTERSTING WALL HERE.":GOTO4901
8370 JU=3:PRINT"[145][217]OU WALK THROUGH WATER (?!?) FOR 5
8371 [153]"MINUTES BEFORE CONCLUDING THIS IS NOT
8372 PRINT"THE RIGHT TUNNEL.":GOTO 4905
8373 JU=1:PRINT"[145][217]OU HAVE REACHED A FORK: THERE ARE
8374 [153]"TUNNELS TO YOUR LEFT, RIGHT AND FRONT.":[137] 4903
8375 [139] JU[178]0 [167] 8378
8376 [139]JU[177]0 [167] [153]"ON(null)OU MUST FIND YOUR WAY OUT OF THESE
8377 PRINT"TUNNELS FIRST.":GOTO4900
8378 GAME=2:LI=0:GOSUB62000:PRINT"[217]OU'RE BACK IN [195]HEAPSIDE.":GOTO4910
8390 IFJU<>2 THEN 6900
8391 IFDD=0 THEN 8761
8392 PRINT"[145][217]OU'RE STANDING AT THE WALL.":GOTO4901
8400 IFJU<>2 THEN6900
8401 PRINT"[145][212]HE DOG HAS BITTEN OFF THE END OF YOUR
8402 [153]"ARM. LEFT$OLMES IS DOOMED.
8403 PRINT"[194]UT [208]ROF. [205]ORIARTY HAS SOME OPENINGS!":GOTO60000
8450 IF LI=0 THEN 6930
8451 IFJU=0THENPRINT"[145][217]OU SEE A LONG TUNNEL AHEAD.":GOTO4901
8452 IFJU=1 THEN PRINT"[145][212]UNNELS ARE LEFT, RIGHT AND STRAIGHT.":GOTO 4901
8453 IFJU>2 THEN PRINT"[145][206]OTHING REVEALING HERE.":GOTO4901
8454 IFDD=0 THEN PRINT"[145][212]HE DOG IS SURELY HIDING SOMETHING.":GOTO4901
8455 PRINT"[145][212]HE WALL AT THE END OF THIS TUNNEL
8456 [153]"LOOKS AWFULLY INTERESTING.":[137]4901
8550 [139]EW[179][177]1 [167] 6900
8551 [153]"ONCHR$OOD JOB, (null)OBY! (null)OU'RE THROUGH THE
8552 PRINT"WALL. [217]OU SEE WHAT APPEARS TO BE A
8553 [153]"DUNGEON. (null)OANING SOUNDS ARE HEARD.":WL[178]1:  [137] 4903
8600 [139]JU[179][177]2 [167] 6900
8601 [153]"ONLEFT$OW?                     ":[137]4900
8650 [139]JU[179][177]2 [167]6900
8651 [139]TY(SW)[179][177]3 [167] 6900
8652 DD[178]1:[153]"ONCHR$OOD THINKING, (null)OBY! (null)HE BEAST HAS
8653 PRINT"TAKEN THE BAIT AND IS OUT OF YOUR WAY.":TY(SW)=4:NI=NI-1:GOTO4901
8660 IFTY(SW)<>3THEN6900
8661 IFJU<>2 THEN 6905
8662 PRINT"[145][217]OU PANIC AND MISS. [215]ATCH IT.... HE'S
8663 [153]"ATTACKING. (null)OU TRY TO RUN, BUT YOU
8664 PRINT"STUMBLE AND BECOME THE POOR THING'S
8665 [153]"FIRST MEAL IN WEEKS.
8666 PRINT"[208]OOR [200]OLMES.":GOTO60000
8750 IFTY(SW)<>3 THEN6935
8751 IFJU<>2 THEN6900
8752 IFDD=0 THEN PRINT"[145][200]OW CRUEL CAN YOU GET?!":GOTO4900
8753 PRINT"[145][212]OO SMALL TO BE EFFECTIVE.":GOTO4902
8755 IFTY(SW)<>3 THEN6935
8756 IF LI=1 THEN PRINT"[145][207][203] - THE MORE LIGHT THE BETTER.":GOTO 4901
8757 LI=1:PRINT"[145][193]H! [212]HAT'S BETTER. [217]OU MAY PROCEED.":GOTO4901
8760 IFTY(SW)<>3 THEN6935
8761 PRINT"[145][214]ALIANT TRY, BUT THE DOG HAS FOUND
8762 [153]"YOUR NECK IRRESISTIBLE. (null)OU'RE DONE
8763 PRINT"FOR. [215]ATSON WILL NEVER FORGIVE YOU.":GOTO60000
8770 IFJU<>2 THEN 6900
8771 GOTO 6927
8900 GOTO12000
9000 ONFWGOTO9050,9000,9100,6900,9200,9250,9300,9350,9400,9450
9010 ONFW-10 GOTO9550,9500,9650,9600,9700,9750,6900
9050 IFB$= "TROLL" THEN10050
9060 IFB$= "HOLMES" THEN10060
9098 GOTO 6900
9100 IFB$="CELL"THEN10100
9105 IFB$="SEWER"THEN10350
9148 GOTO 6900
9200 IFB$="DUNGEON" THEN10200
9205 IFB$="STAIRS" THEN10385
9248 GOTO 6900
9250 IFB$="KEYS"THEN10250
9298 GOTO 6900
9300 IFB$="MONEY" THEN10300
9305 IFB$="LOCKET" THEN10305
9348 GOTO 6900
9350 IFB$="SEWER"THEN10350
9355 IFB$="STAIRS"THEN10355
9370 IFB$="221B"THEN10370
9375 IFB$="CELL"THEN10375
9380 IFB$="TROLL" THEN 10380
9385 IFB$="UP" THEN10385
9390 IF B$="HOLMES" THEN10100
9398 GOTO 6900
9400 IFB$="TROLL" THEN 10400
9405 IFB$="CHAIN" THEN 10405
9448 GOTO 6900
9450 IFB$="AROUND"THEN10450
9498 GOTO 6900
9500 IFB$="COVER"THEN10560
9548 GOTO6900
9550 IFB$="DOOR"THEN10550
9555 IFB$="CELL"THEN10550
9560 IFB$="COVER"THEN10560
9598 GOTO 6900
9600 IFB$="TROLL"THEN10600
9648 GOTO 6900
9650 IFB$="KNIFE"THEN 10650
9655 IFB$="HAMMER"THEN 10650
9700 IFB$="CHAIN"THEN10700
9705 IFB$="DOOR"THEN10700
9710 IFB$="CELL"THEN10700
9748 GOTO 6900
9750 IFB$="HAMMER"THEN10750
9755 IFB$="ROPE"THEN10755
9760 IFB$="KNIFE"THEN 10755
9798 GOTO6905
10000 D=PEEK(186):OPEN1,D,15,"I0":CLOSE1:N$="HOLMES"
10001 OPEN1,D,15,"S0:"+N$:CLOSE1:SAVEN$,D:END
10050 PRINT"[145][212]HE TROLL HAS NO TONGUE. [200]IS GESTURES
10051 [153]"SADLY HAVE NO MEANING FOR YOU.":[137]4901
10060 [153]"ONLEFT$OLMES SAYS ONLY ONE THING WILL
10061 PRINT"SATISFY THE TROLL: A GOLD LOCKET
10062 [153]"WITH A PICTURE OF RIGHT$RENE ATNDLER, WHICH
10063 PRINT"IS SOMEWHERE IN [200]OLMES' FLAT. [200]E IS
10064 [153]"TOO WEAK TO SAY ANY MORE.":[137]4901
10100 [139] SR[178]1 [167]6900
10101 [139] CE[179]2 [167] 6955
10102 [153]"ON(null)OU'RE IN THE CELL. (null)OU RUSH TO
10103 PRINT"[200]OLMES' SIDE AND FIND THAT HE IS
10104 [153]"STILL ALIVE.":[137]12000
10200 [139]SR[178]0 [167] 10350
10201 [139]SR[179][177]2 [167] [153]"ON(null)OU'RE ALMOST THERE.       ":[137] 4900
10202 SP[178]1:[141]62000:[153]"RIGHT$T'S INCREDIBLE! (null)OU'RE ON PEEKAKER
10203 PRINT"[211]TREET, STANDING NEAR 221B.":GAME=1:GOTO4901
10205 GOTO6900
10250 IFTY(SW)=3 OR TY(SW)=4 THEN6920
10251 IFTR=0 THEN 6900
10252 IFLK=0 THEN PRINT"[145][212]HE TROLL'S PRICE HAS NOT BEEN MET.":GOTO4900
10253 PRINT"[145][212]HE MELANCHOLY TROLL QUIETLY HANDS
10254 [153]"OVER THE KEYS.":KY[178]1  :[137]4901
10300 [139]TR[178]0 [167] 6900
10301 [153]"ONLEFT$E DOESN'T WANT MONEY.":[137]4901
10305 [139] TR[178]0 [167] 6955
10306 [139] TY(SW)[179][177]3 [167] 6935
10307 LK[178]1:[153]"ONLEFT$E LOOKS AT THE PICTURE AND TEARS
10308 PRINT"COME TO HIS EYES. [211]HE WAS THE ONLY
10309 [153]"WOMAN WHO EVER LOVED HIM.":NI[178]NI[171]1:TY(SW)[178]4: [137] 4901
10350 TR[178]0:SR[178]0:  [153]"ON(null)UCH TO YOUR DISMAY, THE WALL HAS
10351 PRINT"CLOSED BACK UP AND CAN NOT BE MOVED.
10352 [153]"PEEKUT NEVER FEAR - THERE IS A WAY OUT.":[137]4901
10355 TR[178]0:SR[178]1:[153]"ON(null)OU'RE AT THE FOOT OF THE STAIRS.":[137]4901
10370 [139]SP[178]1[167][137] 4800
10371 [153]"ON(null)HERE'S NOT ENOUGH TIME TO GO BACK
10372 PRINT"THE WAY YOU CAME. [212]HE TROLL IS
10373 [153]"GETTING IMPATIENT.":[137]4900
10375 SR[178]0: TR[178]0:[139]CE[178]0[167][153]"ON(null)HAT CHAIN LOOKS PRETTY STRONG.":[137]4901
10376 [139]CE[178]1[167][153]"ON(null)HE CHAIN IS OFF THE CELL DOOR.":[137]4901
10377 [137]10102
10380 SR[178]0:  TR[178]1:[153]"ON(null)OU'RE STANDING BEFORE THE TROLL.": [137] 4901
10385 [139]SR[179][177]1 [167] 6955
10386 [153]"ON(null)OU'VE REACHED THE TOP AND FIND A
10387 PRINT"MANHOLE COVER. [194]EYOND IT, YOU HEAR
10388 [153]"STREET SOUNDS. (null)ERY ENCOURAGING.":[137]4902
10400 [139]TR[178]0 [167][153]"ON(null)OU'RE TOO FAR AWAY.         ":[137]4900
10401 [153]"ON(null)HERE'S NO NEED FOR VIOLENCE.":[137]4900
10405 [153]"ON(null)ITH WHAT?               ":[137]4900
10450 [139]SR[178]1 [176]CE[177]0 [167] 10459
10451 [153]"ON(null)OU SEE A CELL WITH A LOCKED CHAIN
10452 PRINT"AROUND ITS BARS. [201]NSIDE IS THE BARELY
10453 [153]"CONSCIOUS FIGURE OF (null)HERLOCK LEFT$OLMES.
10454 PRINT"[201]N A NEARBY CORNER SITS A MENACING
10455 [153]"TROLL. LEFT$E HAS THE KEYS TO THE CELL,
10456 PRINT"BUT YOU DON'T KNOW HIS PRICE. [217]OU ALSO
10457 [153]"SEE A SET OF STAIRS REACHING UP OUT
10458 PRINT"OF SIGHT.":GOTO4902
10459 IFCE>0THEN PRINT"[145][200]URRY! [200]OLMES IS GROANING FOR YOU.":GOTO4901
10460 PRINT"[145][193]S YOU LOOK UP, YOU SEE A CRACK OF
10461 [153]"LIGHT AT THE TOP. (null)OOKS LIKE A QUICK
10462 PRINT"WAY OUT.":GOTO 4902
10550 IFCE=0 THEN PRINT"[145][212]HE CHAIN IS STILL LOCKED.":GOTO4900
10551 PRINT"[145][212]HE CELL DOOR IS OPEN.         ":CE=2: GOTO4900
10560 IFSR=0 THEN6900
10561 PRINT"[145][212]HE COVER IS NOW OPEN AND YOU MAY
10562 [153]"EXIT THE DUNGEON.":SR[178]2: [137]4901
10600 [139]TR[178]0 [167] 6900
10601 [153]"ON(null)ITH WHAT?              ":[137]4900
10650 [139]TY(SW)[179][177]3 [167] 6935
10651 [139]TR[179][177]1[167]  6900
10652 [153]"ONLEFT$E'S TOO QUICK FOR YOU. LEFT$E'S THROWN
10653 PRINT"[145]THE KEYS AWAY. [212]OO BAD. [194]AKER [211]T. "
10654 PRINT"[145]WILL NEVER BE THE SAME.":GOTO60000
10700 IF KY=0 THEN6955
10702 PRINT"[145][207][203], THE CHAIN IS OFF THE DOOR.      ":CE=1:GOTO4901
10750 IFTY(SW)<>3 THEN 6935
10751 IFTR=1 THEN PRINT"[145][200]E'S REALLY NOT SUCH A BAD FELLOW.":GOTO4900
10752 PRINT"[145][201]T'S TOO STRONG FOR THAT.      ":GOTO4901
10755 IFTY(SW)<>3 THEN 6935
10756 IFTR=0 THEN6900
10757 PRINT"[145][212]HE TROLL WILL THROW THE KEYS DOWN A
10758 [153]"BOTTOMLESS PIT IF YOU GET ANY CLOSER.":[137]4900
12000 SN[178]1:[139]TM[177]200 [167] 12600
12010 [139]TM[177]150 [167] 12700
12020 [139]TM[177]100 [167] 12800
12100 [143]
12105 [153]"(null)OU'VE DONE A MARVELOUS JOB, (null)OBY.
12110 PRINT"[212]HE WORLD IS GRATEFUL TO YOU FOR
12115 [153]"RESCUING (null)HERLOCK LEFT$OLMES IN TIME.
12130 IF TY(H(1))=3 AND TY(H(2))=3 ANDTY(H(3))=3 THEN 12200
12131 IF TY(H(1))=3 AND TY(H(2))=3 THEN       12210
12132 IF TY(H(1))=3  THEN  12220
12137 PRINT"[212]OO BAD YOU FORGOT HIS BELOVED PIPE.
12138 [153]"PEEKUT HE'LL SURELY RECOVER ANYWAY.":[137]60000
12200 [153]"ATNND YOU EVEN REMEMBERED HIS PIPE,
12201 PRINT"TOBACCO AND MATCHES. [212]HESE WILL MAKE
12202 [153]"MAKE HIS DAY. MID$OB WELL DONE. ":[137]60000
12210 [153]"(null)OU EVEN REMEMBERED HIS PIPE AND
12211 PRINT"TOBACCO. [193]LAS, YOU'VE DROPPED YOUR
12212 [153]"MATCHES. (null)ERHAPS THE TROLL HAS SOME.":[137]60000
12220 [153]"(null)OU EVEN REMEMBERED HIS PIPE. ATNLAS,
12221 PRINT"YOU BROUGHT NO TOBACCO, BUT AT LEAST
12222 [153]"HE HAS A FAMILIAR OBJECT TO CHEW ON.":[137]61000
12600 [153]"PEEKUT, SAD TO SAY, YOU'RE TOO LATE.
12601 PRINT"[200]OLMES HAS SUFFERED IRREPARABLE BRAIN
12602 [153]"DAMAGE. (null)ORRY, YOUNG FELLOW, WE KNOW
12603 PRINT"YOU DID YOUR BEST.":GOTO60000
12700 PRINT"[194]UT, DEAR [212]OBY, DESPITE YOUR BEST
12701 [153]"EFFORTS, TIME HAS BEEN YOUR ENEMY.
12702 PRINT"[212]HE GREAT DETECTIVE IS NEAR DEATH.
12703 [153]"LEFT$E MAY EVENTUALLY RECOVER, BUT THE
12704 PRINT"PROGNOSIS IS GRIM. [199]OOD TRY, LAD.":GOTO60000
12800 PRINT"[212]OBY, YOU'RE BARELY IN TIME. [200]OLMES'
12801 [153]"CONDITION IS PERILOUS, BUT WITH (null)AT-
12802 PRINT"SON'S HELP, HE SHOULD RECOVER TO LEAD
12803 [153]"A NORMAL LIFE.":[137]60000
20000 A$[178]"":B$[178]"":I$[178]"":[133]"(null)HAT NOW";I$:LE[178][195](I$)
20001 [153]:[153]
20002 [139]I$[178]"QUIT"[167]61000
20004 [139]I$[178]"HUSH"[167][141]41000:[137]20000
20006 [139]I$[178]"MUSIC"[167][141]40000:[137]20000
20010 [129]K[178]1[164]LE:[139][202](I$,K,1)[178]" "[167]A$[178][200](I$,K[171]1):B$[178][201](I$,LE[171]K):K[178]LE
20020 [130] K
20030 [129]I[178]1[164]NV:[139]A$[179][177]A$(I) [167] [130]I
20040 [139]I[178]NV[170]1[167] [137]21000
20050 FW[178]I:I[178]NV:[130]I
20060 [129]J[178]1 [164]NM:[139]B$[179][177]B$(J)[167] [130]J
20070 [139]J[178]NM[170]1[167] [137]21000
20080 SW[178]J:J[178]NM:[130]J
20090 [143] PRINTFW,SW :END
20200 [139]A$[178]"GO"[175]B$[178]"LIST"[167]400
20210 [139]A$[178]"GO"[175]B$[178]"RULES"[167]300
20300 [139]A$[178]"DROP" [167]T[178]TYPE(SW):[137]20500
20310 [145] GAME[137]5000,3000,7000,9000
20500 [143] DROP ANAL.
20510 [139]T[179][177]3 [167] [153]"ON(null)OU DON'T HAVE THAT ITEM.":[137]20000
20520 [153]"ON(null)OU NO LONGER HAVE ";B$;".":NI[178]NI[171]1:TY(SW)[178]4
20525 [139] B$[178]"MONEY" [167] MY[178]0
20530 [137] 20000
21000 [153]"ONLENHECK LIST AND/OR RULES         ON":[129]WA[178]1[164]800:[130]WA
21010 [153]"                             ONON":[137] 20000
30000 [143] * * *  VERB DATA * * *
30010 [131]ASK,DROP,ENTER,EXAMINE,EXIT
30020 [131]GET,GIVE,GO,HIT,LOOK,OPEN,PUSH
30030 [131]THROW,TIE,UNLOCK,USE,WALK,EV
30080 [143] * * *  MODIFIER DATA * * *
30090 [131]221B,AROUND,BACK,BOOKCASE,BUTCHER,CELL,CHAIN
30100 [131]CHEAPSIDE,CHEST,COVER,DOG,DOOR
30110 [131]DRYGOODS,DUNGEON,HAMMER,HANSOM
30120 [131]HOLMES,KEYS,KNIFE,LEFT,LIST,LOCKET
30130 [131]MATCHES,MEAT,MONEY,PIPE,POLICE
30140 [131]RIGHT,ROOM,ROPE,RULES
30150 [131]SEWER,SHOE,SMOKESHOP,STAIRS,STRAIGHT
30160 [131]TOBACCO,TROLL,TUNNEL
30170 [131]UP,WALL,WATSON,EM
35000 [153]"(null)AKE YOUR PRINTER READY AND PRESS SPACE"
35001 [153]"   (null)R PRESS '(null)' TO CANCEL PRINT":[151]198,0
35002 [161]T$:[139]T$[179][177]" "[175]T$[179][177]"Q"[167]35002
35003 [139]T$[178]"Q"[167][142]
35005 [159]1,4:[157]1
35010 [152]1,"VERBS":[129] W[178]1 [164] NV:[152]1,A$(W);"  ";
35020 [139] W[173]6[178][181](W[173]6) [167] [152]1," "
35030 [130]W:[152]1," ":[152]1
35040 [152]1,"MODIFIERS": [129]V[178]1 [164]NM:[152]1,B$(V);"  ";
35050 [139]V[173]6[178][181](V[173]6) [167] [152]1," "
35060 [130]V: [152]1," "
35070 [160]1:[142]
40000 [143]   TURN MUSIC ON
40010 [139][194](788)[178]49[167][153]"TURN MUSIC ON"
40020 [142]
41000 [143]   TURN MUSIC OFF
41010 [139][194](788)[179][177]49[167][153]"TURN MUSIC OFF"
41020 [142]
50000 [143] SHOW SHP
50005 [139]SN[179][177]1[167]FF$[178]"DEATH.SHP":[137]50007
50006 FF$[178]"HOLMES/WIN.SHP"
50007 [139]LF[178]0[167]LF[178]1:[147]FF$,8,1
50008 LF[178]0
50010 [151]249,224:[151]250,204
50020 [151]251,0:[151]252,120
50030 [151]253,0:[151]254,0
50040 [158]51456:[158]51459
50050 [151]198,0:[146]198,1:[161]I$
50060 [158]51459
50070 [137]60010
50075 :
60000 [143]  RETURN TO LOADSTAR
60005 [153][166]10)"(null)RESS ANY KEY":[151]198,0:[146]198,1:[161]A$:[137]50000
60010 [153]"LOAD(null)OULD YOU LIKE TO TRY AGAIN?"
60020 [151]198,0:[146]198,1:[161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]60020
60030 [139]A$[178]"Y"[167][138]9
60040 [137]63000
61000 [143] QUIT FOR SURE
61010 [153]"(null)UIT FOR SURE?"
61012 [151]198,0:[146]198,1:[161]A$:[139]A$[179][177]"Y"[167]20000
61014 [137]63000
61020 :
62000 [143]   PRINT "*"..."*"
62002 [153]"****************************************"
62004 [142]
63000 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
63005 [151]56,160
63010 [139]ER[179][177]63[167][128]
63020 [147]"HELLO CONNECT",8